﻿Imports System.Data.OleDb
Imports DAO
Imports DTO
Public Class ThongKeBUS
    Public Sub DeleteDuLieu()
        Dim thongke As New ThongKeDAO()
        thongke.DeleteDuLieu()
    End Sub
    Public Sub InsertDuLieu(ByVal tkdto As ThongKeDTO)
        Dim thongke As New ThongKeDAO()
        thongke.InsertDuLieu(tkdto)
    End Sub
    Public Function LayTongChi(ByVal _date As Date) As DataTable
        Dim tkDao As New ThongKeDAO()
        Return tkDao.LayTongChi(_date)
    End Function

    Public Sub CapNhatDuLieu(ByVal ma As String, ByVal num As Long)
        Dim tkDao As New ThongKeDAO()
        tkDao.CapNhatDuLieu(ma, num)
    End Sub
End Class
